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FASTER "XYLEM" (See Newsletter 13) 


G. Jackson of Cardiff writes: 


"The program iS a more-machine-code version of Mr. Thomson’s 
“XYLEM’ in Newsletter 15. It permits the entry of just one 
parameter instead of XRG, XOS, YRG and YOS and it about doubles 
the speed of working. Some of Mr. Thomson’s fast square root 
routine is used at L2@@, and the method of stacking «,y,p,q,r at 
L1OO, 140 is the outcome of correspondence with him. There being 
no end to the modifying of other people’s programs I can 
understand that you may be reluctant to publish this." 


Readers are often stimulated to improve on something they see in 
the Newsletter, which I see as part of its job. It's true I 
generally don’t publish minor improvements, but in this case I 
think the speed improvement makes it worthwhile. The FRINT £35 in 
line 11@ ‘caused the program to halt with my set-up, but altering 
it to just PRINT cured the problem, apart from dispiaying an 
unwanted number on the screen. Change the pattern By adding or 
deleting REMs from lines 30 to 6@. 


16 REM "XYLEM" in m/code (see Newsletter no.13) 
. Uses f, with r, to set xrg,xos,yrg,yos 
2<@ ON ERROR 
IF error=i11 THEN RETURN 


ELSE POP 
CONTINUE 
3Q@ REM INPUT “p= "3p'"q= “sq'"r= “gr'“scale factor="3f 


r ; 
40 REM LET p=.21,q=-20,r=-100,f=4.5 
S@ REM LET p=.3,q=~-17,r=SOR 2,f=2 
60 LET p=.2,q=—4,r=—-3,f=50 


72 PRINT #@s"p,qg,r="spi","sqi","3ri"s =i" s £ 


80 RESTORE 140 
LET n= 
DO 
READ a ‘ 
EXIT IF atc@ 
PORE 2335090+n,a 


LET n=n+1 
LOOP 
90 LET xrg=2e3/f y:o0s="rg/2-r, yrg=0.469*xrg, yos=yrg/2,%=@, 
y= 


10@ REM Run USR . (y GN stack) 
110 PRINT #233y AND USR 2335@0,«,p,q,9r 
120 INPUT 3; 
PRINT BRIGHT 13 "finished"; #03; "p,q ,r="sps","sqQ3","ara": F 
eS ef 
PAUSE @ 
STOF 


1350 REM Stack *,p,q,r.Store r,q,p,%,y in mems4-O, and no.of 
‘plots in be. 

148 DATA 285,121 ,238,205, 121,28,239, a a a cas 2slI9S,2,1 
92,2,56,1,8,460 

150 REM test for BREAK push bc 

160 DATA 205,84,31,208,197 

17@-REM ABS (p*¥x-q)ta memsS 

182 DATA 239,224,225,726,4,227,5,42,61,197,56 

19@ REM calc SQR. (to memsS) 

220 DATA 126,167,40,19,198.,128,51,119,35,54,127,6,2,259,49,2 
29 ghedg loos SS, 15,246 

210 REM calc 2 (see Newsletter 153) 

228 DATA 239,225,41,4,3 

230 REM y=r-x TO mem@. 

249 DATA 228,225,5,192 

250 REM x==z to meml. 

240 DATA 1,195 

2/@G@ REM stack ytx,y-™ 

286 DATA 15,224,225,5,56 

290 REM plot ytx,y-x 
pop bc 
dec bc 
jpnz L168 
ret 

30@ DATA 205,79,220,195,11,120,177,194,25,91,201,-1 
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SAM NEWS 


Word of MGT'’s new computer was a Bit slaw to reach some parts of 


Europe ~- I confused one correspondant into thinking, what with 
my recent marriage, that Sam was my son! Two slight errors in 
the item in issue {3 - the price should be in pounds, not 
hashes, and the DRAW soeed is about 7 times faster than a 
Spectrums, not 3S times. (CIRCLE is at least 3@ times faster. I 
must say I am getting addicted to watching ever-changing 
colourful Graphics demos —- how did I ever cope without 


Pisel-level colour”) Untrorttunateiv there have been some delays 
getting the required custom chip into production, so the machine 
wili mot be ready till about September. The late publication of 
this Newsletter, and my slow response to tletters, is largely 
because [ have been very busy completing some sections ot SAM's 
Basic - sorry about that. 
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CAT_TO for the PLUS D 


The procedure CAT_TO in issue 9, which catalogues discs drives 
or Microdrives to a string, generated quite a bit of favourable 
comment. I also received several applications of the procedure 
to deal with the PLUS D’‘s cataloque in various ways. Z¢lon is a 
nice program from David Oliver (Houghton-le-Spring, Cc. Durham) 
that prints an alphabetically sorted PLUS D catalogue. He says: 


“"Loc in line 4@ is set to 25 because that is the location of the 
immediate carriage return code before the first PLUS © file name 
(i-e. 1 +5YS... etc.). Lines 5@ to 8@ look for the last carriage 
return code immediately after the last disc file. This I found, 
is always the fourth and is used for ending the s¢sarch and 
joining to the array ef in lines 90 to 160. The repcrt giving 
the number of free bytes is printed by the slicer in line 230 
which I found is always the same. If the number of files on disc 
exceed that which can normally be displayed on one. screer then 
the use of CSIZE 4,8 comes in handy. You obtain a ftur column 
display when the comma is used after print in Jline 2138. The 
program took about 16 seconds to display 8@ sorted nares." 


David also enclased a version that printed just files of a 
particular type, using type data he had included as pert of the 
file names, but I have not got room for it. I have not listed 
the CAT_TO procedure again, either —- you will have tc :ock it up 
in issue 7! It is only 8 lines long. 


16 DIM e$(1,1@) 
2@ cat_to c# 
‘30 CSIZE 4,28 
49 LET loc=35,d$=CHR 13,x=@ 
30 FOR a=LEN c# TO @ STEP -1 
623 IF CODE c#(a)=13 THEN LET x= +1 
70 IF x=4 THEN LET end=a 
GO TG 92 
80 NEAT a 
9@ DO 
100 LET loc=INSTRING(loc,c#,dF) 
110 EXIT IF loc=end 
120 DIM b#(1,10) 
130 LET b$(1)=c$(loct+4 TQ loc+1sS) 
148 JOIN bt TO et 
150 LET loc=loc+tl 


16a LOOP 

170 IF ef(LENGTH(1,"e#"),1)=" " THEN 
PRINT “Thats all folks!" 
CSIZE @ 
STOP 


198 DELETE ef (1) 
190 SORT e$() 
280 FOR b=1 TO LENGTH(1,"es") 
210 PRINT e$(b), 
220 NEXT b 
220 PRINT c$(LEN c$-29 TO LEN c#-1) 
240 CSIZE 0 
STOP 


Note the way David DIMed an array big enough for just ONE name 
to start with, adding new names and expanding the ar-ay using 
JGIN only as needed. The first, blank, entry in the ar-ay 185 in 
fact deleted befure SORT is used. 
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DIGITAL OSCILLOSCOPE 


Am oscilloscope is one of those display devices you see next to 
the bedside when a character in a soap opera has been shot. They 
are also used by all sorts of technical and scientific people in 
order to look at fast Changing signals (and to save paper!). The 
program below does not use any BB features. However, I have been 
asked to show how the EAR socket can be used for data input, and 
the machine code routine provided could form the basis for 
further experimentation. It checks to see if the value at the 
EAR socket is high or low and plots the results a screenful at a 
time. The sampling speed can be altered by changing the value of 
the speed variable. A value of 1 gives the fastest speed; 
higher numbers give slower displays —- not exactly proporticnal 
to speed, though. Unlike most oscilloscopes, no vertical lines 
are drawn — but then the EAR socket does not allow values other 
than "high" or “low”. a 


The illustration shows part of a tape header, simply played 
while the program was running. The start of the top line is the 
end of the leader, made up of pulses about 1.2msecs. long (per 
complete up/down cycle). Then we can see the start of the 
information carried by the header; the first narrow pulse is a 
synch pulse, then binary zeros are shown by narrow pulses, and 
ones by wide pulses. With a bit of squinting, you should be able 
to read "OGOAG0B8 BOVBOGGBSA G1111010 B@1G@A@B" or B,4,122,352 in 


decimai. The gaps are mine - the Spectrum tape system has no 
gaps between bytes. The first zero means "header" rather than 
"data" (a main block of data is preceded by 255), the next zero 
shows the type is "program", and 122 and 32 are the character 


wou 
-_ 


codes for and " ", the start of the name (which was "z"),. 
Bye the way, I am net putting this forward as a header reading 
Program —- just as an example! 


I have used this "oscilloscope" on voice recordings, and 
(cautiously) on same of the signals inside the computer. The 
latter were generally too fast to show much except that a signal 
was present. It should work on Centronics signals. I am hesitant 
to try RS2S2 signals, because I am not sure of the maximum 
voltages it is safe to feed into the EGR socket. Note: The EAR 
socket will register an unchanging high valtage as "low". 


10 LET crt=USR "a" 

20 FOR n=crt TO crt+44 

30 READ a: POKE nya: NEXT n 

4@ LET speed=S: POKE crt+30,speed 

SQ RANDOMIZE USR ert 

60 PAUSE 25: CLS: GO TO 5a 

100 DATA 243,175,79,245,205,176,34,92,22,128,65,219, 254 
11@ DATA 230,54,1235,32,2,198,7,105,122,192,119,203,18,48 
120 DATA 1,44,14516513432,252, 14,251,241, 198,24 754,169 
130 DATA 54,216,251 ,201 
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RECORDING SOUNDS IN MEMORY 


Another use of the EAR socket is recording sounds in memory = and 
Playing them back. PROC REC records anything at the EAR socket 
into an array. An optional Parameter controls the sampling 
speed, allowing you to trade off sound quality against memory 
usage. PROC PLY will play your” arrays back, also at a 
controllable speed; if this is the same as the recording speed, 
the played sound will be normal (ish); alternatively, faster or 
slower speeds can be used. (Small values of T Give high speeds. ) 


Prepare a tape of the sound you want to record, run the program, 
then play the tape into the EAR socket. I was startled to find 
that my voice played at a higher speed sounds rather like my 
sister’s! I used the procedures as the basis for a "speaking 
clock” program which sounded pretty horrible but was quite 
entertaining. I also tried with some success to remove some of 
the high-frequency crackle from sounds by Processing the array 
data in various ways. A graphical version of the arrayS can be 
ebtained by using a loop ta POKE them onto the screen 32 
characters at a time, then scroll the screen by one pixel. I 
found this useful -for looking at crackle and hiss. 


146 setup 

20 DIM p#(15000) 

3@ PRINT "Any key to record" 
40 PAUSE @ 

45 PRINT "recording..." 

50 rec p# 

60 PRINT "Any key to play" 
7@ PAUSE @ 

73 FOR t=t TO 16 STEP 3 
86 ply p#,t 

9@ NEXT t 


106 DEF PROC setup 
110 LET ad=USR "a" 
124 IF PEEK ad<>33 THEN 
FOR n=ad TO ad+98 
READ a 
POKE n ya 
NEXT n 
13@ END PROC 


14@ DEF PROC rec REF as,tim 
1435 DEFAULT tim=9 

156 DPGKE ad+1i,LENGTHiQa,"as") 
150 DPOKE ad+4,LENGTH(1,"a#") 
165 POKE ad+7,tim 

170 RANDOMIZE USR ad 

180 END PROC 


19@ DEF PROC ply REF a¥,tim 

195 DEFAULT tim=9 

200 DPOKE adt43.t ENGTH(O, "af" 
YEW DPORL adide LENG THEGE, ak!) 
21 PORE adits tam 

220° RANDUMEZE USK (ad+#42) 

230 END PROC 


308 DATA 353,0,0,17,80,8,14,0,245,24,20,227,227,0,219,254,219, 
eats ia 74, a, ie. 254,25 ,25,203,22,48,258,55,27, 122,1 79,52, 
2. 201 0,54, i, 24,250 
519 DATA 33, 0,0,17,8, = 9217,14,0,217,58,72,92,351,351,51,238,7, 
S PL 44354, FAS 24. 227,227, 2 ghey 16@,48,2,205,224, 
a oT | 184253 .217 257, HS 203.557 , Se, 254,355, 27,122,179; 


126), 555625 552 5228, 201 
3 ’ 3 5 < 


Note: If you add up all the numbers in these horrible DATA stat-— 
ements the total should be 9491 or one of us has made a 
mistake... 
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PROC GRID —- highlighting attribute boundaries 


Antony Legat of Blakedown, nr. Kidderminster, Worcs. writes: 


"PROC GRID is a simple procedure to provide a grid overlay, 
highlighting attribute boundaries and displaying line and column 
numbers (CSIZE ©). I have found this to be a genuinely useful 


Procedure, and just the type of thing Newsletters should be full 
oie 


92@0 DEF PROC GRID 
LOCAL L,C,as 
LET AS=STRINGS(16,CHRS 1044+CHR# 40)+STRING#(16,CHRS 40 
+CHRE 104) ,AS=STRING$(11,A*) 
FOR L=@ TO 71 
PRINT CSIZE 4,8:AT L,@:l:" " 
NEXT L 
FOR C=2 TO 30 STEP 2 
PRINT INVERSE 1; CSIZE 4,8;AT @,C*2;C 
NEXT C 
POKE 22528,A$ 
END PROC 


Antony has used the fast method of preparing a string containing 
attribute codes for a chess-board of BRIGHT/not BRIGHT character 
squares. This is POKEd to the attributes area at the end of the 
procedure. (CHR 4@ is 001@10@@ in binary - which the Spectrum 
displays as "not FLASH" (first @), “not BRIGHT” (next @), PAPER 
S (the "101") and INK @ (the "@@0"). CHR 104 is 611910900 - the 
same, but with the BRIGHT bit set to 1. Those who, like me, use 
a monitor that does not respond to BRIGHT can modify the PROC to 
use PAPER variations instead. 
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PROC FIND —- finding the coordinates of a pixel 


This procedure is the second one from Antony Legat. I have found 
myself PLOTing by trial and error in order to find the right 
Place to sturt a@ FILL from; the procedure is designed toa remove 
the meed for such guessing, in graphics work, or when placing 
characters precisely with PLOT. It lets you move a pixel cursor 
while displaying its coordinates. 


The cursor keys referred to are 3,4,7 and 8. I found the cursor 
speed a little slow; if you agree, you could consider’ allowing 
other keys to move the cursor in bigger steps, or perhaps 
printing X and Y only once, on leaving the procedure. (This is 
when you usually need to know the coordinates, after all.) 


9000 DEF PROC FIND 
9810 LOCAL X,Y,K 
9820 BORDER t 

9930 INK 9 

9040 INPUT ; 

9050 LET X=128,Y=88 
9060 PLOT OVER 1;X,Y 


9870 PRINT #@:;AT O,03"X="3Xs" “S"Y="s¥3" "* INK S;"CURSOR K 
EYS-MOVE, 9-EXIT/CLEAR" 
9080 8=6pa 
9292 GET K 
9100 PLOT GVER 13;X,Y 
9119 ON K-4 
LET X=X-~-1 
LET Y=Y-1 
LET Y=Y+i 
: LET X=X+1 
9120 LET X=X-(X5255) +(x<@) 
9130 LET Y=Y-(Y3175)+¢(¥<@) 
9140 PLOT OVER 13;X,Y 
F158 PRINT #@;AT O,@:"X="53X%3" ","Y="sY¥3" " 


9162 LOGP UNTIL K=9 
9170 PORE 23524.,PEEK 23693 
9180 END PROC 


Antony changed the border colour to show up the screen edge. 
Line 9170, which resets the border, is interesting; it POKES the 
border colour system variable with the permanent upper = screen 
colours (set by e.g.- PAPER 2). The border doesn't actually 
Change until the next keypress, when the associated click 
requires the ROM to send the value in BORDCR to the pcr: used to 
control both sound and border. The border will always ~atch the 
Paper colour of the main screen, with this METHOG. An 
alternative approach would be to find the border colcaur before 
altering it and then assign it to a variable, so that it could 
be reset using BORDER at line 7170. You could use somt-ing like: 


LET bd=INT(PEEK 23424/9) to find the current border colour. 


HEHEHE HE EHH EI EE HEHEHE EH HHH HEHE IK HIE EE HEIR eH EE EK 
BR 4.0 — RAMDISC ARRAY SYNTAX WHEN THE NAME IS A VARIABLE. 


H.N.5. Wi jegoonawardena (Edgware, Middx.3 sent this useful 
summary of the more indirect ways Gf using Ramdisc arravs in BB 
4.@ - using a VARIABLE for the array name. (For exame ls, using 


DIM 'bS,(20,1@) rather than DIM 'test#(26,1@).) 


STRING ARRAYS: LET b¥="test#" 
DIM 'bs, (70,10) 
LET 'b#,(4)="rzaza" 
PRINT 'b$, (4) 
PRINT LENGTH(2,"'b$,()") 15 equivalen: to 
FRINT LCENGTH(2,"!'test#()") 
SORT 'b#, 0) 
LIST ‘bs 


NUMERIC ARRAYS: LET bS="num" 
DIM ‘bs, (18,5) 
LET !b#,(1,5)=78 
PRINT 'b#, (1,5) 
PRINT LENGTH(2,"'!b#,()") 1s equivalent to 
PRINT LENGTH(2,"“' num) ") 
LIST ‘bs 
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PROC SETUP - setting up tables 


Bill Pedder of Hemel Hempstead, Herts., sent mea program for 
setting up table data. The original subroutine for entering 
numbers was rather long, and I have substituted a = shorter 
version to Save space (and your typing!). Bill talks about 
rows and row length where I would have said columns and column 
width — this might be confusing. He writes: 


"In programming I always use BB, the programs are mainly for 
Calculations in structural engineering. Referring back to 
earlier issues of the Newsletter and INPUT procedures, I find a 
requirement is often for a table of titled lines and rows with 
data placed in the appropriate lines and rows. I enclose PRCC 
SETUP on the enclosed tape. It calls on: 


PROC BD - Yo draw a border round the screen 

PROC TABLE -—- To define the number of lines and rows 

PROC TITLEL To title the lines 

PROC TITLER To title the rows 

PROC I - To put in the data 

PROC C - To copy screen to printer (Alphacom in my case) 


The first INPUT required is FORMAT. This is put in as ####.# = or 
whatever is required. The length of each row is then fixed to 
the number of characters (6 in this case). Titles are then given 
to the lines and rows. Data is then put in the appropriate line, 
row. The particular program for calculations required is then 
written and the results put in the appropriate line,row in the 
teble. When putting DATS in «4 particular line or row if OUTPUT 
is required at this location then zero is INPUT to be 
Overwritten later when calculations have been made. The 
subroutine at line 9872 is to receive only an INPUT number with 
or without a minus sign or decimal point. I can’t seem to get 
this to work as a PROC. 


The things I feel could be improved are at least::: 

a} Change of subrceutine for input a number to a PROC. 

6b) Changing length of each row as required i.e. ROW 1 "HHH" , 
ROW 2 "##.8##", ROW 3 "##LH#" etc. " 


Editor’s comments: I wrote a quite similar progam when I did 
medical research. Given such a program as a basis, it is fairly 
easy to add sections to caiculate averages, add, subtract, 
muitiply or whatever one column by = another, and perform 
statistical tests. Arrays are good ways of handling lots of 
numbers. Regarding improvements, I agree about the input 
routine. A string array couid hoid format strings for each 
column separately. Heading strings could be printed centrally by 
Printing TAR (desired column centre) minus half heading length 
Ce:cluding spaces). 


10 LIST FORMAT 2 
ESIZE 4,3 
POKE 224538,3 
BORDER 5S 
FAPER 7 
INk @ 

PROC SETUP 


9000 DEF PROC SETUP 
PROC TABLE 
FOR K=1 TO NL 
PROC TITLEL K 
NEXT K 
INPUT "LINE TITLES OK?";08 
IF Q$="N" THEN INPUT “LINE LETTER TO ALTER?" 3A 
LET K=CODE A$—-64 
PROC TITLEL K 
GO TO 7886 


9002 
7064 


9006 


9008 


9018 


9812 


9014 


9815 
9618 


* 9626 


9024 


934 


FOR 


K=1 TO NR 


PROC TITLER K 
NEXT K 
INPUT “ROW TITLES OK?";Q8 
IF Q$="N" THEN INPUT “ROW NUMBER TO ALTERT";AS 
LET K=VAL AS 
PROC TITLER K 
GO TO 9914 


FOR 


K=1 TO NR 


FOR J=1 TO NL 


PROC I J,k 
LET X(J3,K) =NU 


NEXT J 
NEXT K 
INPUT "DATA OK?" ;Q8 
IF @S="N" THEN INPUT “ITEM LETTER TO ALTER?":As 
LET J=CODE As—64 
INPUT “ROW NUMBER TO ALTER?"3K 
PROC I J,k 
LET X(J,K) =NU 
GO TO 9014 
PROC C 
END PROC 


STOF 


DEF PROC TABLE 
LOCAL FE 
INPUT “FORMAT? GAH. fH) "3 US 


LET 


LE=LEN Ut 


INPUT “NO OF LINES? (18 MAX) "3NL 
IF NL<1 OR NL?18 THEN GO TO 9626 
DIM L#(NL,9) 
INPUT "NO OF ROWS? "3NR 
IF NR<1l OR NR? INT (48/(LE+1)) THEN GO TO 90828 


CLS 


PROC BD 


PRINT AT 1,12; INVERSE 1;"ROW “3AT 2,13 INVERSE 1: "LIN 


i= " 
FOR 


K=1 TO NL 


PRINT AT K+2,1:CHRS (K+64)3")" 


NEXT kk 


FOR 


K=1 TO NR 


PRINT AT 1,15+(K-1)*(LE+1)+LE/23K3")" 
NEXT kK 


DIM 
DIM 
DIM 
DIM 


L#(NL,9) 
RS (NR,LE) 
X (NL,NR) 
ZS(LE) 


9036 END FROC 


9038 REM TITLE LINE 

9@4@ DEF PROC TITLEL A 

PRINT Al 2th,S:" “SAT 2+kK,S: FLASH 13°77" 
INPUT LS (Ch) 

PRINT AT 2+K,S:LFik) 

9344 END ROC 


9042 


9076 


9a72 
9074 
9076 
9077 
9073 
9689 
9082 


91898 


9120 
9122 


9124 


REM TITLE ROW 
DEF PROC TITLER K 
PRINT AT 2,16+(K-1) *(LE+1);Z$3AT 2,16+(K-1) *(LE+1)3 FL 
ASH 13"?" 
INFUT RS(K) 
PRINT AT 2,16+(K-1) ¥(LE+1) sRE(K) 
END PROC 


REM INPUT DATA ‘ 
DEF PROC I Jyk 
PRINT AT J#2,16+(K-1)*(LEN US+1)3Z$:;AT J+#2,16+(K-1) #(L 
EN U$S+1)3; FLASH 13"7" 
GO SUB 9072 
PRINT AT J+2,16+(K-1)*(LEN US+1) 3 USING US;NU 
END PROC 
STOP 


REM BORDER 

DEF PROC BD 
PLOT 8,8 
DRAW 255, 
DRAW @,175 
DRAW -255,8 
DRAW @,-175 
PLOT 1,1 
DRAW 253,28 
DRAW 0,173 
DRAW -253,0 
DRAW @,-175 

END PROC 


REM NUMBER INPUT 
ON ERROR 7180 
LET ERROR=90 
INFUT NS 
LET NU=VAL NS 
IF ERROR<3>@ THEN GO TO 9074 
ON ERROR @ 
RETURN 


BEEP 1,1 
RETURN 


REM COPY 
DEF FROC C 
INPUT "COPY? (Y/N) "30% 
IF Q@$="Y" THEN COPY 
END PROC 
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ANOTHER BB BUG? 

Way back in issue 6&6 I! published < 

an item on simulating evolution. itr 
Les Tyler (Cheltenham) who has yr 
filled many an idle moment bm — 
running at, subm: tted the 

following gene values for a ia 
eather more convincing fly: hig 


-* —~ a . 
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PROC REPEAT (MK. 2) 


Here is a compact and devious procedure for repeating a number 
of statements in a simple manner, sent in by Lars ult of 
Goteborg, Sweden. Another REPEAT procedure of a differen= kind 
was published in issue 5S, page 8, but I cannot think of a 
sensible new name for this sone! The procedure uses xXTS as a 
variable, which is a bit naughty; although XOS does enc up with 
the default value of zero, REPEATed graphics commerds will 
behave oddly. Put the REPEAT at the end of the line you want to 
repeat a given number of times, e.g: 


1Q0@@ DEF PROC repeat ri 
POP r2_ 
LET xos=xostl 
LET xos=xos*(ri<>xos) 
GO TO r2+NOT xos 
END PROC 


FEHR EEE ER IEEE IEE IE IEE ETE TET HE HEE TE TET TET TE HEHEHE HEHE EET HEHEHE TE HEHE te EEE 
SOLVING EQUATIONS 


Jan Moller (Lulea, Sweden) writes: 


"Here is a simple procedure for solving equations. It uses the 
algorithm by Newton-Raphson. The equation is entered as & string 
and used as a value parameter in the procedure. Your -=SS 15 
entered as a number and sent as a parameter by refererc=. The 
procedure prints each new ‘x' and the value of the equation for 
this ‘x’. When the difference between two ‘'x’s is smails- than 


@.00680: the loop ends and the root and the value <=f the 
function are printed." 


"To stop unending loops a variable ‘count’ is updated ar= after 
20 loops leaves. (Sometimes a root may not be found.) Trere is 
no check that ‘der’ <*> zero which of course would give = divide 


by zero error... ‘Der’ will be zero at the root if the ezuation 
has a double root. like x#¥x*xn-G¥x#x+20%x-15." 


I took the liberty of adding line 130 so that things i:ke SIN 


and TAN can be entered in spelled-out form. An example: enter 
the equation s*x-tan x, guess -2 or -3, and the final x wiil be 
about -1.85393. (If all this confuses you, don’t worry - I only 


vaguely understand it myself!) 


16@ INPUT “Eq: "3;qg$ 

120 INPUT "Guess xi"5u™ 
120 LET gf=SHIFT#(8,q#) 
140 Eqobulv glyss 


90@0 DEF PROC EqSolv £$, REF 
LOCAL h,fl,f2,der,count 
9810 LET h=. 00001 ,count=1 
9040 DO 
LET f2S=VAL f#£yx=xth, fi=VAL FS ,x=x—-h,der=(f1--+l°/h 
9045 LET x=x-VAL £$/der 
PRINT count; TAB 3325 TAR 18;VAL fF 
LET count=count+!l 
LOOP UNFIL ABS (VAL f#/der)<1le-S OR count:20 
PRINT BRIGHT 135::,VAL fF 
9050 END PROC 
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READERS’ LETTERS . 


Dear Andy, 


Unfortunately, I’ve been able to get no information on the 
hardware of the Interface 1, and I wonder how it works. I seem 
to remember hearing about a ‘Shadow ROM’, but am not sure what 
this means. ' 


Antony Legat, Blakedown, Worcs. 


A Z2@ chip like the Spectrum's can only deal with 64K at a 
time. In order for peripherals like Interface 1 ta add new 
commands, the usual system as this: the circuitry ain the 
peripheral is activated when the Spectrum executes the part of 
ROM at LIacatran 8, which happens when ai syntax errear is 
detected. This circuitry sends a signal into the edge connector 
which turns aff the internal ROM, and a second (se-called 
“Shadam’ ROM) in the peripheral is turned on and takes over. The 
bottom 16K of the Z3@ chip's memory is suddenly different, and 
hey presto, a different ROW is new in control, running the part 
of its program just after lecation 3. The ‘Shadow’ ROM can nom 
find wut what caused the errer that activated it, and if needed, 
control e.g. a Hicrodrive SAVE, hefore telling the circuitry ta 
surtch back ta the nermal RON. To examine the Interface ps ROH, 
Just SAVE ®%m”;1;”name” CODE @,16384. This saves the battam 16K 
ef nemury, where the ‘Shadow’ ROM must be switched in ta control 
the SAVE. Then something like CLEAR 32767: LOAD ¥°Rm" 71 7"name”’ 
CODE $2763 will load the code back wmhere you can examine Pig ae I 
picked 32763 because that 1s S@9@H; a disassembly will Look 
reasonable — e.g- JR @123H will be listed as JR S1I25H. (Io used 
ta fave a disassembler that mould pretend the cade it wmas 
working on was anywhere you manted, but that mas on a different 
machine, alas/)} 


Dear Andy, ; 

---I was surprised you recommended Format in issue 13 instead of 
the Spectrum Discovery Club. I joined the SDC after yeu 
mentioned it in Newsletter 98 and I have thoroughly enjoyed both 
the disc-based newsletters and the library program discs. The 
one issue of Format I’ve seen was rather poor in comparison. 


Y found your article on the SAM computer very enlightening and 
2t occured to me that if BR programs and procedures are going ta 
be (almost) compatible might it not be a good idea to process 
the BB newsletters into a Sam newsletter? This might enable yeu 
to earn a little more for your efforts and give Sam users a very 
good grounding in their Basic. (If it helps to keep the BB 
newsletter going a bit longer then it can’t be bad!) 


Paul Hammond, Grimsby, Humberside 


T have only recently been rade a wnermber ef the Spectrus 
Discovery Club aud got some disc bachkh-1ssue:. I agree mith you - 
they ure very Ginn 7 Tt £5 parlictilar ly conmvenroene tuo have 
Pregranm. ready to run on the dt o«, ase wel | aes all the other 
nemeletter sections. Their prices are very reasonable (they are 
nen-pratit making! at £1.59 per issue ar £2.08 for 6 ISSUES; 
Bany peaple weould pay more for the discs alone. Quite a large 
number of people run varieus sub-sections, sa there is a big 
poeul of expertise. (I neticed the names . of guite a fem BSB 


users.) In short, If you have an Opus Discovery, yeu meuld be 
mad net te fain’ (Unless perhaps spelling mistakes ‘cause your 
blood pressure ta rise dangerously....) A better addg”-e2ss than 
the ane in Newsletter 8 is: 


B. MUMFORD, S7 ST. SAVYIOURS ROAD, WEST CROYDON, SURREY, CR@ 2XE 


Cheques and Pastal Orders should be p,made out ta 3DC. Also 
mentioned im” BBR Nemsletter 39 was Dave Corney, writer of the 
Opus Discavery RON. Unfortunately, he seems toa have varnished, 
and some readers have lost noney. The ROMs can now be ebtained 
from SDC, whe are keeping a special bank account to turn aver ta 
Mr. Corney in case he ever shams up. (In which case I hepe he 
settles any debts/) , 


Another disc/Nicradrive based magazine is OUTLET. I have rot 
seen it yet, but reader Scett Brown writes “..ham meli it morks. 
They get same brilliant utility software sent in.” and Jahn Luby 
wrate “It’s one af the fern publications I leak fareard ta 
anymore... I can recommend it ta BBN readers. If motiving else 
it’s enthusiastic and cheap, and there have been a few very good 
utilities im it.” 


(Rambling letter reply, this, isn't 1t?) Paul Hammond's idea 
tdea about the BB Newsletter is semething I mill think about. 


Dear Dr. Wright, 


Is it possible to define UDGs in CSIZEs other than the standard 
6*9 pixel character size? Such a technique would allsw me to 
display large circuit diagrams on screen by uSIP=o Graphics 
symbols defined in "small" character squares - e.g. 4++, before 
"dumping" to a printer. 


David Griffiths, Dinas Powys, S. Glamorgan 


Such symbels are probably best done using UDGs or characters 
platted in QVER 2. The large berder of unused pix2ls im oa 
Standard UDG mill then have na effect. The only sligh- croblem 
might be when you want to overprint symbals, since OFZ FD only 


adds pixels. Maybe you ceuld use OVER 2 with al ali-ink txt 
symbol, then OVER 1 mith the same UDG, to ferce a 4+ PAPER 
“hole”? Then any other symbal could be piatted aver the “hale”, 
using OVER 1 again. 


Dear Andy, 


I would like to ask if it may be possible to use JOIN / DELETE / 
COPY commands on RAM DISC arrays... I tried entering some 
Program statements along this’ line, they passed fynte. but 
stopped with error reports 1.e. Invalid argument. My guess to 
your reply is no. 


David Oliver, Houghton-le-Spring, Co. Durham 


Corrects Tn face, those command. shouldn't qet Past the aa a ed 
check ~ an error on my part. (Trying to use them can even cause 
aocrash ~— sa don’t try’) Because af the way the paged memory 


works with Ramdisc, the commands would need to be completely 
re-mritten and evtended to nork as we would all like. 


Dear Dr. Andy, 


No doubt many besides me will be sorry if you have to stop 
Publishing the BB newsletter, but as I hope to be able to 
transfer to a SAM micro, I shall still feel your influence. ...I 
have been trying to SORT a PLIST of all the DEF FPROCs in a 
Program, and could not. I also have a small club membership list 
in which each member is noted by name, address and phone number 
on one line. I think I need to retype it with BB loaded, but so 


far my experiments have failed to produce anything which will 
SORT. 


Peter Bell, Shoreham—-by-Sea, W. Sussex 


SORT will only work with arrays - If you want to SORT a set of 
PROC nawes you mill have to get them into a string array first/ 
If you are using PROC PLIST from issue 4, modify it as follows: 


Add: 15 DIM a¥(5@,2@): LET p=1 
Change line 50 to: 
SO LET a$(p)d=nt,at(p,i7 TO)=USINGS ("#4#4" ,lnum) ,p=pt+i 


Add: 65 SORT a¥#i TO p-1) 
66 FOR n=1 TO p-i1: PRINT a#(n): NEXT n 


If your membership list is an array, you can SORT it -— but if it 
has entries like: 


Fred Hloggs, 24 Wyche Ave 
BD. Munns, 469 Dross Rd. 


yeu have a problem. You have ta SORT accerding ta seme column, 
£uch as the one with “FY and "D” in, but this will nat give a 
sensible arder of surnames. You need to ensure all the data you 
want to SORT is neatly lined up, by entering it as e.@.: 


Bloggs Fred, 24 Wyche Ave 
Mumm Dey G9 Druin Kade 


Another may is to reserve, say, the first 12 characters In the 
Strings in your array fer first names, the next 2@ fer surnames, 
and sa an. 


Dear Andy, 


My Microdrive cartridges are getting a bit worn now, and I have 
recently had a bit of bother with "losing" programs on a couple 
of cartridges... Ts there a =“Microdrive Dector” program 
available which allows cartridges to be examined in detail to 
recover damaged or deleted files?.. If you know of anything in 
that line, perhaps you could publicise its existence... there 
could be other readers who would also appreciate it. 


George Baldwin, 15 Oabley Close, Addlestone, Weybridqe, €TIS 2LT 


Towrete osvrme sore or seclor recavery thingy when I Taste 
cunverted a game from Spectrum Nicredrive to IBN PC (/) but nhen 
Io leaked at rt again, it mever returned the recavered sectars ta 
anormal format, sa rt’s not surtable. I am sure ather readers 
would Like ta hear about any govd products in this line. 


Dear Dr. Wright, 


I read with interest in No. 8 of the Newsletter about the 8856 
printer driver software. [I tried to obtain a copy of CFASH 
magazine’s TECH TAPE which I believed held such an item - but 
alas I can’t get hold of one ae they have finished it. Can you 
or any of our “cClub" help me? I will be abliged. 


Stephen Freeman, 22 Ford Drive, Yarnfield, Staffs. ST1S OFF 
Can anyone help him? I can't. 
Dear Andy, 


Why is it when I try to use PROC SOUND (BB Newsletter no. 2) it 
resets my +2 to 48K mode? On the enclosed tape are two versions 
of a program I wrote based on Battleships the pencil and paper 
game. The first is a 128k Beta Basic version and the  seccnd is 
the original program [I wrote way back in Dec. 19385 oan a 48K 
Spectrum in Spectrum Basic. I think you will agree that the Mk 
TI version is better (although whatever you do battleships is 
still a rather boring game). 


N.V. French, Spalding, Lincs. 


I theught your Battleships Iooked very professianal — well dane/s 
Prty rt is tea Ieng@ far the Newsletter. PROC SOUND pay be 
crashing because you have aver-written the start of RBB’s cede. 
Find aut what the variable RT is after BB's Basic has teen 
merged, and make sure the leap at Iine 38 (BBN no. 2, p.-3)} does 
not POKE any addresses as high as RT. If it dves, that 1s the 
problem, and the addresses in line 39 need to be Ilowered by 
(47879-rt}, as daes the USR in line 249 on page S. 


Dear Andy, 
A line in a recent program had the form: 


ON ms 

IF Ci THEN Si: 
IF €2 THEN S2: 
IF C3 THEN S32: 
IF C4 THEN S4 


where m=i1 or 2 or 3 or 4, and Si-S4 are single wunconciticnal 
statements. The consequent crazy resuits led me to deduce that, 
as far as ON is concerned, an MIF statement is (at least?) 2 
statements... I had assumed that ON searched for coions toa 
determine the prescribed statement, but it appears that it 
searches for command—-keywords; by going through the line as it 
does when checking syntax? 


Ettrick Thamson, Aldeburgh, Suffolk 


Not exactliv. The Spectrum treats hath colans and THENs as itnter- 
Statement markers, s0 there are actually @ statements atter ON 
in your example. (Try IF £ THEN PRINT zzz - the error report 1s 
Tar statement THO.) I used the ROM routine at I178SH to saiz ta 
the required statement. I dan’? think I'd like to try to aiter 
the usual treatment of THEN, but your example could use ON aa&?-I1 
to give the results you require. 


Dear Dr. Wright, 


‘I always put the name of a defined procedure in reverse video... 
When I LLIST, I lose the reverse video feature. I wonder if you 
could supply a set of POKEs to send a desired control code 
sequence to the printer to correspond to the inv. video and true 
video characters found in a program listing? My printer has a 
code for inverse print: CHRS 27;CHRS 126;CHR* S@;CHRS 1... Other 
peacple may not have the reverse print facility on their printer, 
but may want to use the codes for underline (or italic, or 
whatever) instead. 


Franceetco Stajano, Rome 


How about ALTER (CHR$ 2O*CHRE I) (i.e. the control characters 
for INVERSE 1 that are put in a listing mhen you press the IHV 
VIDEO key? TO (the codes you want)? And similarly fer (CHR$ 
2O+CHRE BG) (TRUE VIDED). Then CLLIST, then change everything 
back? It man’t work far me because I need a “b” type channel for 
contral cades ta mark, and that means I lose auto-line-feed with 
Carriage return, unless I open the printer and reset some 
Smitches... 


HIS REPLY: 


Iotried it, and it worked fine. Here is ao procedure that 
implements your idea: 


DEF FPROC hardlist first,last 
DEFAULT first=1,last=9999 
ALTER (CHR 26) TO (CHR 27+CHRS 126+CHRS 3@) 
KEYIN "LLIST first TO last” 
ALTER (CHR: 27+CHRS 124+CHRE 30) TO (CHR 28) 
END FROC 


The KEYIN is used to prevent a failure in RENUM. 
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LAST WORD 


My attempts to use direct photocopying of some submissions i1n 
issue 153 went badly wrong for the items from John Watkins oan 
pages @ and 9, for the first 150 newsletters, at least. The 
contrast on the originals was just too low and the listings are 
hard to read. I re-typed them for later copies. If you want a 
better copy of the offending page, just send me an &.A.E. tor 
even just an addressed envelope). Parts that were particularivy 
hard to read where line 61@@ which finishes: max,dec,neg,expo,b$ 
Line 6170 which starts: IF CODE at?47 AND CODE a#<S8 AND LEN 


b$<length THEN and Line 6180 which includes: CHRS 8;" "3;CHRE 9; 
CHRE 3. A siight flaw in the original program means that line 
6229 should have brackets round: a#="E" OR at="e" if extra "e's 
are to be detected when entering numbers in exponent § form. ie 


often have trouble with brackets myself!) 


As wusuel, any Newoletter contributions will be greatly 
appreciated. Best wishes to you all till nest. issue —- which I 
hope will not be as late as this one! 
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